home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d26
/
csa.arc
/
CSA_GEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-05-22
|
713b
|
29 lines
program gen_test(input,output);
var
t : array [1..4] of string[2];
f : array [1..4] of string[2];
i, j, k, l : integer;
fn : text;
begin
writeln('generating file CSAGEN.LSP');
t[1] := 'A ';
t[2] := 'E ';
t[3] := 'I ';
t[4] := 'O ';
f[1] := '1 ';
f[2] := '2 ';
f[3] := '3 ';
f[4] := '4 ';
assign(fn,'csagen.lsp');
rewrite(fn);
writeln('writing all possible forms');
for i := 1 to 4 do
for j := 1 to 4 do
for k := 1 to 4 do
for l := 1 to 4 do begin
writeln(fn, '(rule_test ',chr(39),'(',f[i],t[j],t[k],t[l],'))');
end;
end.